clear all
use "Data\W5 (Finaldata Post-Imputation).dta"

*********************Fig. A2 The Result of The First Robustness Test****************
reghdfe Democratic_Suitability Family_Values1 Social_Values1 Political_Values1 Country_Economic_Evaluation Family_Economic_Evaluation Social_Capital Political_Interest Political_Efficiency Election_Participation Internet_Use gender age education residence employment family_status household_income, absorb(country Year) vce(robust)

est store model1

reghdfe Democratic_Preferability Family_Values1 Social_Values1 Political_Values1 Country_Economic_Evaluation Family_Economic_Evaluation Social_Capital Political_Interest Political_Efficiency Election_Participation Internet_Use gender age education residence employment family_status household_income, absorb(country Year) vce(robust)

est store model2

reghdfe Democratic_Priority Family_Values1 Social_Values1 Political_Values1 Country_Economic_Evaluation Family_Economic_Evaluation Social_Capital Political_Interest Political_Efficiency Election_Participation Internet_Use gender age education residence employment family_status household_income, absorb(country Year) vce(robust)

est store model3

reghdfe Democratic_Necessity Family_Values1 Social_Values1 Political_Values1 Country_Economic_Evaluation Family_Economic_Evaluation Social_Capital Political_Interest Political_Efficiency Election_Participation Internet_Use gender age education residence employment family_status household_income, absorb(country Year) vce(robust)

est store model4


coefplot (model1, label(Model 1: Democratic Suitability) mcolor(black) ciopts(color(black) recast(rcap))) (model2, label(Model 2: Democratic Preferability) mcolor(navy) ciopts(color(navy) recast(rcap))) (model3, label(Model 3: Democratic Priority) mcolor(forest_green) ciopts(color(forest_green) recast(rcap))) (model4, label(Model 4: Democratic Necessity) mcolor(sand) ciopts(color(sand) recast(rcap))) , vertical baselevels graphregion(color(white)) drop(_cons Country_Economic_Evaluation Family_Economic_Evaluation Social_Capital Political_Interest Political_Efficiency Election_Participation Internet_Use gender age education residence employment family_status household_income) yline(0, lp(dash) lcolor(gs10)) xlabel(1 "Family Values" 2 "Social Values" 3 "Political Values" ) 
graph export "Results/Figures/Fig. A2 The Result of The First Robustness Test.png", replace


clear all
use "Data\W5 (Finaldata Post-Imputation).dta"

*********************Fig. A3 The Result of The Second Robustness Test****************
reghdfe Democratic_Suitability Family_Values Social_Values Political_Values Country_Economic_Evaluation Family_Economic_Evaluation Social_Capital Political_Interest Political_Efficiency Election_Participation Internet_Use gender age education residence employment family_status household_income, absorb(country Year) vce(robust), if area==1

est store model1

reghdfe Democratic_Preferability Family_Values Social_Values Political_Values Country_Economic_Evaluation Family_Economic_Evaluation Social_Capital Political_Interest Political_Efficiency Election_Participation Internet_Use gender age education residence employment family_status household_income, absorb(country Year) vce(robust), if area==1

est store model2

reghdfe Democratic_Priority Family_Values Social_Values Political_Values Country_Economic_Evaluation Family_Economic_Evaluation Social_Capital Political_Interest Political_Efficiency Election_Participation Internet_Use gender age education residence employment family_status household_income, absorb(country Year) vce(robust), if area==1

est store model3

reghdfe Democratic_Necessity Family_Values Social_Values Political_Values Country_Economic_Evaluation Family_Economic_Evaluation Social_Capital Political_Interest Political_Efficiency Election_Participation Internet_Use gender age education residence employment family_status household_income, absorb(country Year) vce(robust), if area==1

est store model4

coefplot (model1, label(Model 1: Democratic Suitability) mcolor(black) ciopts(color(black) recast(rcap))) (model2, label(Model 2: Democratic Preferability) mcolor(navy) ciopts(color(navy) recast(rcap))) (model3, label(Model 3: Democratic Priority) mcolor(forest_green) ciopts(color(forest_green) recast(rcap))) (model4, label(Model 4: Democratic Necessity) mcolor(sand) ciopts(color(sand) recast(rcap))) , vertical baselevels graphregion(color(white)) drop(_cons Country_Economic_Evaluation Family_Economic_Evaluation Social_Capital Political_Interest Political_Efficiency Election_Participation Internet_Use gender age education residence employment family_status household_income) yline(0, lp(dash) lcolor(gs10)) xlabel(1 "Family Values" 2 "Social Values" 3 "Political Values" ) 
graph export "Results/Figures/Fig. A3 The Result of The Second Robustness Test.png", replace


clear all
use "Data\W5 (Finaldata Post-Imputation).dta"
*********************Fig. A4 The Result of The Third Robustness Test****************\

reghdfe Democratic_Suitability Family_Values Social_Values Political_Values Country_Economic_Evaluation Family_Economic_Evaluation Social_Capital Political_Interest Political_Efficiency Election_Participation Internet_Use gender age education residence employment family_status household_income, absorb(country Year) vce(robust), if Year==2018 | Year==2019

est store model1

reghdfe Democratic_Preferability Family_Values Social_Values Political_Values Country_Economic_Evaluation Family_Economic_Evaluation Social_Capital Political_Interest Political_Efficiency Election_Participation Internet_Use gender age education residence employment family_status household_income, absorb(country Year) vce(robust), if Year==2018 | Year==2019

est store model2

reghdfe Democratic_Priority Family_Values Social_Values Political_Values Country_Economic_Evaluation Family_Economic_Evaluation Social_Capital Political_Interest Political_Efficiency Election_Participation Internet_Use gender age education residence employment family_status household_income, absorb(country Year) vce(robust), if Year==2018 | Year==2019

est store model3

reghdfe Democratic_Necessity Family_Values Social_Values Political_Values Country_Economic_Evaluation Family_Economic_Evaluation Social_Capital Political_Interest Political_Efficiency Election_Participation Internet_Use gender age education residence employment family_status household_income, absorb(country Year) vce(robust), if Year==2018 | Year==2019

est store model4

coefplot (model1, label(Model 1: Democratic Suitability) mcolor(black) ciopts(color(black) recast(rcap))) (model2, label(Model 2: Democratic Preferability) mcolor(navy) ciopts(color(navy) recast(rcap))) (model3, label(Model 3: Democratic Priority) mcolor(forest_green) ciopts(color(forest_green) recast(rcap))) (model4, label(Model 4: Democratic Necessity) mcolor(sand) ciopts(color(sand) recast(rcap))) , vertical baselevels graphregion(color(white)) drop(_cons Country_Economic_Evaluation Family_Economic_Evaluation Social_Capital Political_Interest Political_Efficiency Election_Participation Internet_Use gender age education residence employment family_status household_income) yline(0, lp(dash) lcolor(gs10)) xlabel(1 "Family Values" 2 "Social Values" 3 "Political Values" )
graph export "Results/Figures/Fig. A4 The Result of The Third Robustness Test.png", replace